home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_ui.tcl < prev    next >
Encoding:
Text File  |  1995-03-14  |  6.8 KB  |  249 lines
  1. # jedit_ui.tcl - user interface for jedit
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # create main window
  9. ######################################################################
  10.  
  11. proc jedit:mkwindow { window } {
  12.   j:debug
  13.   global argv0 MODE
  14.   
  15.   set prefix [jedit:top_to_prefix $window]
  16.   
  17.   set menu $prefix.menu
  18.   set main $prefix.main
  19.   
  20.   frame $menu -borderwidth 2 -relief raised
  21.   pack $menu -fill x
  22.   
  23. # jedit:mkmenus ...        ;# done by jedit:apply_mode
  24. # jedit:mkbuttons ...        ;# done by jedit:apply_mode
  25.   jedit:mkmain $main
  26.   pack $main -expand yes -fill both
  27.   
  28.   if {[winfo class $window] == "Toplevel"} {
  29.     wm title $window "No file"
  30.     wm iconname $window "No file"
  31.   }
  32. }
  33.  
  34. ######################################################################
  35. # create text window with scrollbar
  36. ######################################################################
  37.  
  38. proc jedit:mkmain { w } {
  39.   j:debug
  40.   global J_PREFS
  41.   if {[lsearch [array names J_PREFS] {scrollbarside}] == -1} {
  42.     set J_PREFS(scrollbarside) right ;# make sure it's defined
  43.   }
  44.   
  45.   frame $w
  46.   
  47.   frame $w.status
  48.   label $w.status.name -relief flat -text {(No file yet)}
  49.   label $w.status.mode -relief flat -text "(unspecified)"
  50.   scrollbar $w.s -relief flat -command "$w.t yview"
  51.   # text widget is configured near end, after user's config file is read
  52.   text $w.t -yscroll "$w.s set" -setgrid true
  53.   
  54.   pack $w.status.name -in $w.status -side left -fill x
  55.   pack $w.status.mode -in $w.status -side right -fill x
  56.   pack $w.status [j:rule $w] -in $w -side top -fill x
  57.   pack $w.s [j:rule $w] -in $w -side $J_PREFS(scrollbarside) -fill y
  58.   pack $w.t -in $w -side $J_PREFS(scrollbarside) -expand yes -fill both
  59.   
  60.   focus $w.t
  61.   catch {focus default $w.t}        ;# caught for Tk 4.0
  62.   tk_bindForTraversal $w.t
  63.   
  64.   return $w
  65. }
  66.  
  67. ######################################################################
  68. # create button bar
  69. ######################################################################
  70.  
  71. proc jedit:mkbuttonbar { w t } {
  72.   j:debug
  73.   if [winfo exists $w] {
  74.     destroy $w
  75.   }
  76.   
  77.   frame $w
  78.   
  79.   set mode [jedit:get_mode $t]
  80.   
  81.   if {"x[info procs mode:${mode}:mkbuttons]" != "x"} {
  82.     mode:${mode}:mkbuttons $w.b $t
  83.   } else {
  84.     j:buttonbar $w.b -pady 2 -buttons [format {
  85.       {done Done {jedit:cmd:done %s}}
  86.       {save Save {jedit:cmd:save %s}}
  87.       {load Load {jedit:cmd:load %s}}
  88.       {print Print {jedit:cmd:print %s}}
  89.     } $t $t $t $t]
  90.   }
  91.   pack $w.b [j:rule $w] -in $w -side top -fill x
  92.   return $w
  93. }
  94.  
  95. ######################################################################
  96. # set the label at the top of the window to current mode and filename
  97. ######################################################################
  98.  
  99. proc jedit:set_label { window {title USE_FILENAME} } {
  100.   j:debug
  101.   jedit:set_filename_label $window $title
  102.   jedit:set_mode_label $window [jedit:get_mode $window]
  103. }
  104.  
  105. ######################################################################
  106. # set the label at the top of the window to current filename
  107. ######################################################################
  108.  
  109. proc jedit:set_filename_label { window {title USE_FILENAME} } {
  110.   set file_label [jedit:top_to_prefix $window].main.status.name
  111.   
  112.   set filename [jedit:get_filename $window]
  113.   if {"x$filename" == "x"} {
  114.     set filename "No file"
  115.   }
  116.   
  117.   if {$title == "USE_FILENAME"} then {set title [file tail $filename]}
  118.   if {$title == "FULL_FILENAME"} then {set title $filename}
  119.   
  120.   if [winfo exists $file_label] {
  121.     $file_label configure -text $title
  122.   }
  123.   
  124.   if {[winfo class $window] == "Toplevel"} {
  125.     wm title $window $title
  126.     wm iconname $window $title
  127.   }
  128. }
  129.  
  130. ######################################################################
  131. # set the label at the top of the window to current mode
  132. ######################################################################
  133.  
  134. proc jedit:set_mode_label { window {mode USE_MODE} } {
  135.   if {$mode == "USE_MODE"} then {set mode [jedit:get_mode $window]}
  136.   
  137.   set mode_label [jedit:top_to_prefix $window].main.status.mode
  138.   if [winfo exists $mode_label] {
  139.     $mode_label configure -text [jedit:get_mode $window]
  140.   }
  141. }
  142.  
  143. ######################################################################
  144. # position insert comfortably
  145. ######################################################################
  146.  
  147. proc jedit:yview_insert {t} {
  148.   set sb [jedit:text_to_scrollbar $t]
  149.   set insertline [lindex [split [$t index insert] .] 0]
  150.   $t yview -pickplace {insert -5 lines}
  151.   set lastline [lindex [$sb get] 3]        ;# last visible line in $t
  152.   if {$lastline >= $insertline} {
  153.     $t yview -pickplace insert
  154.   }
  155. }
  156.  
  157.  
  158. ######################################################################
  159. # set text for current preferences
  160. ######################################################################
  161.  
  162. proc jedit:configure_text { t } {
  163.   global JEDIT_MODEPREFS JEDIT_PREFS
  164.   
  165.   set mode [jedit:get_mode $t]
  166.   
  167.   catch {$t configure \
  168.     -background $JEDIT_PREFS(textbg) \
  169.     -foreground $JEDIT_PREFS(textfg) \
  170.     -insertbackground $JEDIT_PREFS(textfg) \
  171.     -selectbackground $JEDIT_PREFS(textsb) \
  172.     -selectforeground $JEDIT_PREFS(textsf) \
  173.     -selectborderwidth $JEDIT_PREFS(textsbw) \
  174.     -borderwidth $JEDIT_PREFS(textbw) \
  175.     -insertwidth $JEDIT_PREFS(textiw) \
  176.     -width $JEDIT_MODEPREFS($mode,textwidth) \
  177.     -height $JEDIT_MODEPREFS($mode,textheight) \
  178.     -wrap $JEDIT_MODEPREFS($mode,textwrap)
  179.   }
  180.   j:configure_font $t $JEDIT_MODEPREFS($mode,textfont) ;# knows about `default'
  181.   # for rich-text:
  182.   jedit:font:configure_fonts $t
  183. }
  184.  
  185. ######################################################################
  186. # various widget-name-guessing procedures
  187. ######################################################################
  188.  
  189. # .jedit1.main.t -> .jedit1
  190.  
  191. proc jedit:text_to_top { t } {
  192.   return [winfo parent [winfo parent $t]]
  193. }
  194.  
  195. # .jedit1.main.t -> .jedit1.main.s
  196.  
  197. proc jedit:text_to_scrollbar { t } {
  198.   return "[winfo parent $t].s"
  199. }
  200.  
  201. # .jedit1.menu -> .jedit1
  202.  
  203. proc jedit:menubar_to_top { mb } {
  204.   return [winfo parent $mb]
  205. }
  206.  
  207. # .jedit -> .jedit, but "." -> ""
  208.  
  209. proc jedit:top_to_prefix { top } {
  210.   if {[string compare "." $top] == 0} {
  211.     return ""
  212.   } else {
  213.     return $top
  214.   }
  215. }
  216.  
  217. # .jedit -> .jedit.main.t, but . -> .main.t
  218.  
  219. proc jedit:top_to_text { top } {
  220.   if {[string compare "." $top] == 0} {
  221.     set prefix ""
  222.   } else {
  223.     set prefix $top
  224.   }
  225.   return ${prefix}.main.t
  226. }
  227.  
  228. # .jedit -> .jedit.buttons, but . -> .buttons
  229.  
  230. proc jedit:top_to_buttonbar { top } {
  231.   if {[string compare "." $top] == 0} {
  232.     set prefix ""
  233.   } else {
  234.     set prefix $top
  235.   }
  236.   return ${prefix}.buttons
  237. }
  238.  
  239. # .jedit -> .jedit.menu, but . -> .menu
  240.  
  241. proc jedit:top_to_menubar { top } {
  242.   if {[string compare "." $top] == 0} {
  243.     set prefix ""
  244.   } else {
  245.     set prefix $top
  246.   }
  247.   return ${prefix}.menu
  248. }
  249.